EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


**F ILE**1D**L IBPUTOUT 


<- 
o= 


| S 
LL 111111  BBBBBBBB = PPPPPPPP WU UU TIiTTTTTTT 000000 uu UU TTTTTTTTTT ; 
LL 111111  BBBBBBBB_ = PPPPPPPP =U UU TTTTTTTTTT 000000 UU UU TTTTTTTTTT : 
LL II 88 BB PP PP UU UU TT 00 00 UU UU TT : 
tL II 88 BB PP PP UU UU TT 00 00 UU UU TT ; 
tL II 88 BB PP PP UU UU TT 00 00 UU UU TT ; 
LL II BB BB PP PP UU UU TT 00 00 UU TT ; 
LL II BBBBBBBB  —PPPPPPPP = UU UU TT 00 00 UU UU TT 
LL II BBBBBBBB_ —-~PPPPPPPP = WU UU TT 00 00 UU UU TT 
LL 11 eS BB PP UU UU TT 00 00 UU UU TT 
LL II 85 BB PP UU TT 00 00 TT : 
LL 1] 88 BB PP UU UU TT 00 00 UU UU TT awe ; 
LL II BS BB PP UU UU TT 00 00 uv UU TT nak : 
LULLLLELLLE = TTTI = BBB PP UUUUUUUUUU TT 000000 = UUUUUUUUUU 1 pees ; 
LLLLLLELEE «= sTIII = BBBBBBBB)=—sPP UUUUUUUUUU TT 000000 = YUUUUUUUUU TT dae i 
LL HII SSSSSSSS ; 
LL HII SSSSSSSS ; 
LL II SS : 
LL II $§ ; 
tL II $5 
LL II SS 
tL II SSSSSS 
tL II SSSSSS 
tL II S$ 
LL II $5 
me II $5 
LL II $5 
LLLLLLLLLL «©=sEITII = SSSSSSSS 
LLLLLLLLLE «= sTTIII «= SSSSSSSS 
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Sep-1 LIBR PUTOUT (1) 
MODULE LIBSPUT_OUTPUT (2TITLE'Library SPUT on device SYSSOUTPUT’ 
IDENT = ¥1-006" ! Fite: L1BPUTOU B32 EDIT: sie 


BEGIN 


! 
i eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeeeeereneeeeneeeeeeeeeeneneeneeee 
'@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

iw DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 

ie THIS SOFTWARE. 1s FURNISHED UNDER A LICENSE AND MAY B 


USED AND COPIED 
'® ONLY IN 


* 
te 
& 
# 
E © 
ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
'® COPIES THEREOF WAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
' * 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i® CORPORATION. “ 

e 

x 

® 

* 

* 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


NOU WN 0 OONOUEWN OOO NAUESWIN (OC OONOUFWD “ODO ONOULWN—"OOONOUL WH 
ee em ee ced dd 6 ed ed od od dd od od od 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
5 
3 0 i eee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeterereeeeeeeeaeeeeeeeeeeeeeeeeeeeeee 
0 ! 
; aT , 
; 8 } FACILITY: General Uitlity Library 
H Bg ABSTRACT: 
3 oy Output a string as a record on device SYSSOUTPUT. 
3 bf } ENVIRONMENT: User Mode - AST re-entrant 
Z Re : AUTHOR: Thomas N. Hastings, CREATION DATE: 8-Aug-1977 
: 094 MODIFIED BY: 
4 ane : Thomas N. Hastings, 8-Aug-1977: VERSION 0 
4 04 ! 01 - original 
4 Boe ! 04 = change to SYSSOUTPUT 
4 ! 05 = change to do OPEN at first time 
4 004 ! 06 = change to set up RAB for message 
4 ! 0-7 = fix comment 
5 5 ! 0-9 = Put in carriage control. TNH 28-Oct-77 
5 Bne ! O-11 = Change to STARLET Library. DGP 20-Apr-78 
5 5 : “18 = Change REQUIRE files for VAX system build. DGP 28-Apr-78 
5 ! 0-15 = Change ET to RTLSTARLE to avoid conflicts. DGP {~fay~78 
5 ! Q-14 = Make wait if stream active, so AST re-entrant. TNH 29-July- 
5 i 0-15 = Change file name to L {BPUTOUT.B5 ; and change the name of | 
One : the REQUIRE file similarly. JBS 14-NOV-78 
05 ! 1-001 = Update version number and copyright notice. JBS 16-NOV-78 


2 
IBSPUT_OUTPUT Library SPUT on device SYSSOUTPUT 1-50 -1984 01:08:17 AX-11 Bliss-32 V4.0-74 
1886 . 1 =300 138% 93:98:18 LIBRTL.SRC CibputooT 68231 
38 : ' 1=808 = Change REQUIRE file nenes [ron FOR... to OTS... JBS 07-DEC-78 
! 1- = Enhance to resogn ze eed tional g‘esees 0 string descriptors 
: by invoking LIBSANALYZE_SDESC__R5 to extract length and 
' address of ist data byte from descr Oger 
! Remove reference to OTSMAC.REQ. RKR 27-MAY-1981. 
: 1-004 = Add special-case code to process string Congr letere that 
! “read Like fixed string descriptors. RKR 7-0CT-1981. 
! 1-005 = Redirect jsb's from LIBSANALYZE SDESC_R3 to 
' LIBSANALYZE_SDESC_R2. RKR 18-NOV-198T 
i 1-006 = Use prologue file: SBL 24-June-1983 
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+ SPUT_OUTPUT Library S$PUT on device SYSSOUTPUT 


PROLOGUE FILE: 


REQUIRE 'RTLIN:LIBPROLOG'; 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
LIBSPUT_OUTPUT; 


; MACROS: 


EQUATED SYMBOLS: 


pelelelelelelealelolelelelelelelolalololo) 
I OOOOO 
ANNO 


SINNED AA AAA AAA A MMIII 


OWN STORAGE: 


EXTERNAL REFERENCES: 
EXTERNAL ROUTINE 


WOOO 000000000000 09 090909 090909 INI NNNNS 


AUEWN —O ODNAUE WN (OO ODNAUES WR OO OONOUS WN HO 


VISWN (OOD NOAUE WN SO OONOAUE WI OOODNAUES WIN O00 
Oa a a a dd 


CGOooooooooooooooo 


ed a ot 8 ws 8 ws 


> sb 


! LIBS definitions 


! Output string on device SYSSOUTPUT 


OWN 
SYS_OUTPUT_ISI: WORD INITIAL (0); ! ISI for SYSSOUTPUT 


LIBSANALYZE_SDESC_R2 : LIBSANALYZE_SDESC_R2$LINKAGE; 


To extract length and address of Ist 
! data byte from descriptor. 


M 2 
1ecSep-1966 92:99:18 UC Tart 


Bliss-32 v4.0-74 p 3 
RET SPUTOOT 69251 — 
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SN panel hoc: Spt SaagDimae isc baste ifseortgge T3:98:18 = EMart’SeeScispurour.ag2;1 wm on 
1 GLOBAL ROUTINE LIBSPUT_OUTPUT ( ! Output string to SYSSOUTPUT 
MESSAGE ! Adr. of string descriptor 
) = ! Value returned is RMS completion 
! code 
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+ 

FUNCTIONAL DESCRIPTION: 
Outputs a record on device SYSSOUTPUT using RMS $PUT. 
On first call, device SYSSOUTPUT is opened 
(or created if it doesn't exist yet). Thus the logical 
name SYSSOUTPUT can be assigned to any file name in order 
to redirect 1/0. 

FORMAL PARAMETERS: 


| 
| 
MESSAGE .rt.dx Adr. of string descriptor of string 
to be output. 


IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

SYS_OUTPUT_ISI RMS internal stream id for all but first call 
COMPLETION CODES: 


RMS completion code 
or LIBS_INVARG if descriptor is bad. 


SIDE EFFECTS: 
Opens (creates if not existent) file SYSSOUTPUT on first call. 


See 
+ 


BEGIN 


CAL 
RMS_STATUS ' RMS status 
FAB: $FAB_DECL, i FAB 
> RAB: SRAB_DECL: i RAB 
MESSAGE: REF BLOCK C, BYTE); ! String descriptor 
IF .SYS_OUTPUT_ISI EQL 0 
THEN | 
| 


‘+ 
: First call, initialize FAB 


PWN 0 OONO UE WDR) 0 ODNOAU EWN 0 OONOA UE WIN SO OONAMUE WIN SOO ONOUS WOO 


DEA QAD WANN BB BBE EEE SE BWI AIP NINININININ NY 2 2 Ow nm OO 
DINING POPOPONONONONONOPOPONINONIND 2 2 9 9 oe 


vv 


1 at 
-Sep-1984 LIBRTL.SR UTOUT.B52;1 (3) 


1 
1 
P FAC = PUT ' file access: su 
P FNA = UPLIT ("SyS$ouTPUT'), | file name: SYS output 
P FNS = 10, ! file name size: 10 bytes 
P RAT = CR, ! carriage control = each 
P ' record on separate line 
FOP = CIF); file options: create if file 


' not exist 


+ 
' Create SYSSOUTPUT, open if exist and position to end-of-file, 
remember ISI 


RMS STATUS = $CREATE (FAB = FA 


B); fab addr : FAB 
IF NOT .RMS_STATUS THEN RETURN .RMS_STATUS; 


' 
i if create fail 
! then return 
with RMS 


3 
LIBSPUT_OUTPUT Library SPUT on device SYSSOUTPUT as -1984 01:08:17 AX-11 Bliss-32 V4. & 5 
1-006 ~ " b-8ep 93398318 CiL18P se 
il 
! status code 
| 


P SRAB_INIT ( 
p FAB = FAB ! FAB address 
p RAB = RAB ! RAB address : 
ROP = EOF ! position at end-of-file if file exists 


S; 
RMS_STATUS = $CONNECT (RAB = RAB); ! connect RAB to the file 
IF NOT .RMS_STATUS Hb os RETURN .RMS_STATUS; 

Svs OUTPUT _TSI = ,RABCRAB$W_ISIJ; ! remember ISI 


SUPT BB ES BS SB BB AAAI 


MEWN OOO NOUS WN O ODNAUE WN (SO ODNAOUSWN OO ONAY FW OOONOUL WW 


ELSE 


‘+ 
! file already exist, just initialize RAB Z 
} including internal stream identifier returned from first SOPEN 


SOS LVS VS VV VLLL LMM NAINA IN AIN YND DOO 


OWWNAUEWN $$ OO OWNAU EWN O ODNAUES WN HOO DNAUES WN OOONOW 


BEGIN 
p SRAB_INIT ( 
Pp FAB = FAB, ' FAB address 
P RAB = RAB ! RAB address > Tog : 
ROP = EOFS; ! position at end-of-file if file exists 
ShSCAhaee 1513 = .SYS_OUTPUT_ISI; 
: | 


'¢ 
! Setup buffer address and length on first and subsequent $PUTs 
If descriptor is bad, return status from LIBSANALYZE_SDESC_R2. 


POMIRINOPIPONIPINONINONINYDD 2 3 8 It ss os st 
ooo 


IF .MESSAGE CDSCS$B_CLASS] GTRU DSCS$K_CLASS_D 
THEN ! Use generalized extract 


BEGIN 

LOCAL RET_STATUS ; 

RET_STATUS = LIBSANALYZE_SDESC_R2 ( .MESSAGE ; | 
RAB RABSU_RSZ} ' Length | 
RAB CRABSL“RBFJS; | address 


IF NOT .RET_STATUS THEN RETURN (.RET_STATUS) ; 


ee eee eee wwe ielolololololololololololeololololololololelolololololol ola) 
090009 09 09 C8 SIN NS SSS SSO OA AO OOO w = 
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AAA AAAPIPIPIPOPINININPIND WWI WININIAIRIPOPUNINPI NWN WANA Ww 


Noy a 
—SOOONOUEWN—O 
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cc 
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Output the strin 
! If error and it 
! making routine AST re-entr 
; success, rather than L1B$ 


MEUM" OODONOUE wry 


nm 
WAAL AIG 
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~ 
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j tpsPUt ouTPut Library SPUT on device SYSSOUTPUT 


a single record and return RMS completion status 
TREAM ACTIVE, wait and tr 


CORD 
eturn §S$_NORMAL (0 


4 _ $PUT (RAB = RAB) 
sina 17" peatatareace EQL RMS$_RSA DO 
$WAIT (RAB=RAB) ; 
AB) 


24 53 59 53 00000 P.AAA: 


vv 


01 
0 


2 


ooo SOrMommmnea 


5:98:1 


Fetch length and address directly 


RETURN (IF .RABCRABSL_STS)] THEN SS$_NORMAL ELSE .RABCRABSL_STS]); 
! End of routine LIBSPUT_OUTPUT 


- TITLE 
- IDENT 
-PSECT 

0000 00000 SYS_OUTPUT_ISI: 
. WORD 


»PSECT 
-ASCII 


088804 


LIBSPUT_OUTPUT Library S$PUT on device SYSSOUTPU 


_LIBSDATA,NOEXE, 


_LIBSCODE ,NOWRT, 
\SYSSOUTPUT\<0><0> 
LIBSANALYZE_SDESC_R2 

SYSSCREATE, SYSSCONNECT 

SYSSPUT, SYSSWAIT 

LIBSPUT OUTPUT, Save R2,R3,R4,R5,R6,R7,R8 
SYS_OUTPUT_ISI, R8 

SYSSPUT, R7 

148(SP5, SP 

YS_OUTPUT_ISI, RO 

#0, (SP), #0, #80, SRMS_PTR 


OWS 
mos 


mr 
con 


mr 
cone 


; Routine Size: 


L IBSPUT OUTPUT Library SPUT on device SYSSOUTPUT 


i 
E 
6E 


AE 
AE 


56 
50 


68 


Routine Base: 


0202 8F 
B6 AF 
a6 Ae 

30 
00 
E 

4401 i 

0100 F 
44 AE 

5E 
4 
0 
56 
56 
02 AE 
1¢ 
00 
6E 

4401 8F 

0100 =8F 
44 AE 

56 

04 * 
03 A 

15 

53 

000000006 90 
5 

56 

63 

04 AS 
5E 

01 

08 ae 

10 

5E 

} 

E 

01 

E6 

08 AE 
01 

08 AE 
-LIBSCODE 


Be 92:95:18 


1 
1 
80 0 2 
ns 
F 44 
F 047 
D Boe 
5 084 
Bee 
0 0005C 
E 90067 
4 O08 
D9 Go0rs 
E 078 
DO 00078 1$: 
04 O007E 
BO OOO7F 2$: 
11 00083 
2C 00085 3$: 
008C 
R0 008) 
C 498 
43 0009 
BO 00090 
DO QOOAI 4$: 
91 OO0AS 
1B 000A9 
DO OO0AB 
16 QOOAE 
B0 4-4 
DO 00088 
4 000BC 
4 000BF 
BO O00CO 5$: 
DO bpocs 
DD O00C9 6$: 
Fe 000CB 
E8 OOOCE 
Di 00001 7$: 
12 00009 
DD 00008 
FB 44 
DD £4 
fo OE6 
11 QO0E9 
E9 OOOEB 8$: 
yi EF 
3 r§ 9$ 
BS 000F 


AX-11 at V4.0-74 
LIBRTL.SRC 


#514, SRMS_PTR+30 
AAA, $RMS_PTR#+44 
#i0. $rMS_PTR+52 
#1, SYSSCREATE 
RO. RMS_STATUS 
RMS_STATUS, 1$ 
#0,-(SP), #O, #68, SRMS_PTR 
#17409, $RMS_PTR 
#256, $RMS_PTR+4 
EAB, $RMS_PTR+60 
#1, SYSSCONNECT 
RO. RMS STATUS 
RMS_STATUS, 2$ 
RMS"“STATUS, RO 
RAB+2, SYS_OUTPUT_ISI 
#0, (SP), #0, #68, SRMS_PTR 
#17409, $RMS_PTR 
#256, $RMS_PTR+4 
PAB, | $RMS_PTR+60 


MESSAGE, R3 

Brae he 

R3, RO 
LIBSANALYZE_SDESC_R2 
R1, RAB+34 

R2, RAB+40 
RET_STATUS, 6$ 

(R3), RAB+34 

4(R35, RAB+40 


#1, ae 
RAB+B, #99034 
8$ 


SP 
#1, SYSSWAIT 
#1, SYSS$PUT 
7$ 

RAB+8, 9$ 
wi, RO 


RAB+8, RO 


LIBPUTOUT .B52;1 
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Y Used: 118 pages 
_ ation Complete 
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IBSPUT_OUTPUT Library SPUT on device SYSSOUTPUT bese -1984 01:08:17 X-11 Bliss-32 v4.0 Page 
4-006 12-8 08=1 884 93398315 CIBRTL’ SRC Cigetoor 6 2;1 . 
; 0318 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
> _LIBSDATA NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC.ALIGN(2) 
; _LIBSCODE 260 NOVEC, *NOWRT. RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
; ovecesss Syabel§ ooocecce Pages Processing 
s File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 78 Q 581 00:00.7 
> ~$255$DUA28:CLIBRTL. OBJIRT TLLIB.L32;1 36 1 8 00:00.1 
3 COMMAND QUALIFIERS 
H BLISS/CHECK=(FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS#LIS$:LIBPUTOUT/0BJ=08J$:LIBPUTOUT MSRC$:LIBPUTOUT/UPDATE=(ENH$:LIBPUTOUT 
: Size: 248 code + 14 data bytes 
> Run Time 00:06.1 
; Elapsed Time: 09: 8.9 
3 Lines/CPU Min: 107 
; eee AS Rake 54068 


ION 
RY 
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